home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Technology Home Card / card_7270.txt < prev    next >
Text File  |  1990-04-02  |  2KB  |  100 lines
  1. -- card: 7270 from stack: in
  2. -- bmap block id: 3657
  3. -- flags: 4000
  4. -- background id: 2736
  5. -- name: Scanner Tech - System
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set hilite of background button "The System" to false
  9.   set hilite of background button "How It Works" to false
  10.   set hilite of background button "Scan. Concepts" to false
  11.   set hilite of background button "File Formats" to false
  12. end openCard
  13.  
  14.  
  15.  
  16.  
  17. -- part 42 (button)
  18. -- low flags: 00
  19. -- high flags: 8004
  20. -- rect: left=46 top=141 right=162 bottom=174
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: About This Stack
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   visual effect scroll left
  32.   go to card "Introduction"
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 56 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=451 top=3 right=42 bottom=491
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 1004 / 1004
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: 
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   play harpsichord a4
  52.   global search
  53.   answer "Type of Search?" with "Browse" or "Automatic" or "Cancel"
  54.   if it is "Browse" then
  55.     visual wipe up slowly
  56.     go to card "Glossary" of stack "Glossary"
  57.   end if
  58.   if it is "Automatic" then
  59.     ask "Find Word?"
  60.     put it into search
  61.     if search is empty then
  62.       exit mouseUp
  63.     else
  64.       visual wipe up slowly
  65.       put "find search" into message box
  66.       hide message
  67.       go to card "Glossary" of stack "Glossary"
  68.       find word search in field "Text"
  69.       if the result is "not found" then
  70.         answer "Word not found." with "OK"
  71.         exit mouseUp
  72.       else
  73.         show card field id 13
  74.         wait 4 seconds
  75.         hide card field id 13
  76.       end if
  77.     end if
  78.   end if
  79. end mouseUp
  80.  
  81.  
  82. -- part 57 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=402 top=3 right=42 bottom=438
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 1008 / 1008
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: 
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   doMenu "Print Card"
  97. end  mouseUp
  98.  
  99.  
  100.